COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "ALOADR"
C00004 ENDMK
C⊗;
BEGIN "ALOADR"
	REQUIRE "ABBREV[SYS,BGB]" SOURCE_FILE;
	SAFE ITG ARRAY INFO[0:6];
	ITG FILSIZ;

	OPEN(1,"DSK",8,3,0,0,0,0);
	LOOKUP(1,"XIP.REL",0);
	FILEINFO(INFO);
	FILSIZ ← ABS(INFO[3]ASH -18);
BEGIN
	ITG I;
	SAFE ITG ARRAY BUF[0:FILSIZ];
	ARRYIN(1,BUF[0],FILSIZ);RELEASE(1);
	OUTSTR(9&"EOF, FILESIZE "&CVS(FILSIZ)&↓);
	I ← 0;
DO BEGIN
	ITG WRDCNT,BLKSIZ;
	WRDCNT ← BUF[I] LAND '777777;
	BLKSIZ ← 1 + WRDCNT + (WRDCNT%18) + (IF (WRDCNT MOD 18)=0 THEN 0 ELSE 1);

	OUTSTR("BLOCK TYPE "&CVS(BUF[I] ASH -18));
	OUTSTR(9&"BLOCK SIZE "&CVS(BLKSIZ)&↓);

	I ← I + BLKSIZ;
END UNTIL I≥FILSIZ;
	WHILE TRUE DO INCHRW;
END;
END;